"
A LogicalFontManagerTest is a test class for testing the behavior of LogicalFontManager
"
Class {
	#name : 'LogicalFontManagerTest',
	#superclass : 'TestCase',
	#category : 'FreeType-Tests',
	#package : 'FreeType-Tests'
}

{ #category : 'accessing' }
LogicalFontManagerTest >> currentProviderOrError [
	| provider |
	provider := FreeTypeFontProvider readSlotNamed: #current.
	self assert: provider isNotNil.
	^ provider
]

{ #category : 'tests' }
LogicalFontManagerTest >> testHasCurrentFreeTypeFontProvider [
	"If it fails, LogicalFontManager unload should be called."
	self assert: (LogicalFontManager current identityIncludesFontProvider: self currentProviderOrError)
]
